home *** CD-ROM | disk | FTP | other *** search
/ Fighting Force - Digital Press Kit (Europe) / Fighting Force - Digital Press Kit (Europe).bin / pc / eidos2.dxr / 00167.ls < prev    next >
Encoding:
Text File  |  1997-01-01  |  492 b   |  17 lines
  1. on xtracopy
  2.   if the platform contains "Mac" then
  3.     maccopy()
  4.   else
  5.     openXLib("Xtras\filecopy")
  6.     set fileName to the pathName & "screens\" & the name of cast the mouseCast
  7.     if fileName > EMPTY then
  8.       set wFileName to doSaveAsDlg(the pathName & "screens\" & the name of cast the mouseCast, "Tiffs@*.tif")
  9.       if wFileName > EMPTY then
  10.         set result to copyFile(wFileName, fileName)
  11.         put result
  12.       end if
  13.     end if
  14.     closeXLib("Xtras\filecopy")
  15.   end if
  16. end
  17.